From 55718e15d6caa9822cdfda70e63f8d4d7099181c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 28 Mar 1993 22:56:29 +0000 Subject: [PATCH] (fill-individual-paragraphs): When skipping mail headers, skip to a blank line. --- lisp/textmodes/fill.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index a905bef78d1..8486e81c2e2 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -292,7 +292,7 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (beginning-of-line) (if mailp (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$")) - (forward-line 1))) + (search-forward "\n\n" nil 'move))) (narrow-to-region (point) max) ;; Loop over paragraphs. (while (progn (skip-chars-forward " \t\n") (not (eobp))) -- 2.30.2